| / Whiteline: Alpha
/ Whiteline Alpha.iso / tex / strunk / disk_2 / styledoc.lzh / styledoc / ifthen.doc
| < prev | next > |
| LaTeX Document | 1986-02-06 | 5.0 KB |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 100% | dexvert | LaTeX Document (document/latex) | magic | Supported |
| 1% | dexvert | WANG Integrated Word Processor (document/wangIWP) | ext | Unsupported |
| 1% | dexvert | Dynamic Publisher Document (document/dynamicPublisherDocument) | ext | Unsupported |
| 1% | dexvert | Excellence! Document (document/excellenceDocument) | ext | Unsupported |
| 1% | dexvert | Norton Textra Writer (document/textraWriter) | ext | Unsupported |
| 1% | dexvert | IBM DisplayWrite Document (document/ibmDisplayWriteDocument) | ext | Unsupported |
| 1% | dexvert | Open Access Document (document/openAccessDocument) | ext | Unsupported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | LaTeX auxiliary file | default | |
| 99% | file | LaTeX document, ASCII text, with CRLF line terminators | default | |
| 100% | checkBytes | Printable ASCII | default | |
| 100% | perlTextCheck | Likely Text (Perl) | default | |
| 100% | detectItEasy | Format: Plain text[CRLF] | default | |
| 100% | xdgMime | text/x-matlab | default (weak) |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 49 46 54 48 45 4e | 20 44 4f 43 55 4d 45 4e |% IFTHEN| DOCUMEN|
|00000010| 54 2d 53 54 59 4c 45 20 | 4f 50 54 49 4f 4e 20 2d |T-STYLE |OPTION -|
|00000020| 20 72 65 6c 65 61 73 65 | 64 20 31 36 20 44 65 63 | release|d 16 Dec|
|00000030| 65 6d 62 65 72 20 31 39 | 38 36 0d 0a 25 20 20 20 |ember 19|86..% |
|00000040| 20 66 6f 72 20 4c 61 54 | 65 58 20 76 65 72 73 69 | for LaT|eX versi|
|00000050| 6f 6e 20 32 2e 30 39 0d | 0a 25 20 43 6f 70 79 72 |on 2.09.|.% Copyr|
|00000060| 69 67 68 74 20 28 43 29 | 20 31 39 38 36 20 62 79 |ight (C)| 1986 by|
|00000070| 20 4c 65 73 6c 69 65 20 | 4c 61 6d 70 6f 72 74 0d | Leslie |Lamport.|
|00000080| 0a 0d 0a 25 20 5c 69 66 | 74 68 65 6e 65 6c 73 65 |...% \if|thenelse|
|00000090| 7b 54 45 53 54 7d 7b 54 | 48 45 4e 43 4c 41 55 53 |{TEST}{T|HENCLAUS|
|000000a0| 45 7d 7b 45 4c 53 45 43 | 4c 41 55 53 45 7d 20 0d |E}{ELSEC|LAUSE} .|
|000000b0| 0a 25 20 20 20 20 41 6e | 20 69 66 2d 74 68 65 6e |.% An| if-then|
|000000c0| 2d 65 6c 73 65 20 63 6f | 6d 6d 61 6e 64 20 77 68 |-else co|mmand wh|
|000000d0| 65 72 65 20 0d 0a 25 20 | 20 20 20 20 20 20 20 54 |ere ..% | T|
|000000e0| 45 53 54 20 3d 3d 20 5c | 65 71 75 61 6c 7b 53 54 |EST == \|equal{ST|
|000000f0| 52 49 4e 47 7d 7b 53 54 | 52 49 4e 47 7d 0d 0a 25 |RING}{ST|RING}..%|
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000110| 6e 75 6d 62 65 72 20 3c | 20 6e 75 6d 62 65 72 20 |number <| number |
|00000120| 7c 20 6e 75 6d 62 65 72 | 20 3d 20 6e 75 6d 62 65 || number| = numbe|
|00000130| 72 20 7c 20 6e 75 6d 62 | 65 72 20 3e 20 6e 75 6d |r | numb|er > num|
|00000140| 62 65 72 20 7c 0d 0a 25 | 20 20 20 20 20 20 20 20 |ber |..%| |
|00000150| 20 20 20 20 20 20 20 20 | 5c 28 54 45 53 54 5c 29 | |\(TEST\)|
|00000160| 20 7c 20 5c 6e 6f 74 20 | 54 45 53 54 20 7c 20 54 | | \not |TEST | T|
|00000170| 45 53 54 20 5c 6f 72 20 | 54 45 53 54 20 7c 20 54 |EST \or |TEST | T|
|00000180| 45 53 54 20 5c 61 6e 64 | 20 54 45 53 54 0d 0a 25 |EST \and| TEST..%|
|00000190| 20 20 20 20 77 69 74 68 | 20 5c 6f 72 2c 20 5c 61 | with| \or, \a|
|000001a0| 6e 64 20 61 6e 64 20 5c | 6e 6f 74 20 64 65 6e 6f |nd and \|not deno|
|000001b0| 74 69 6e 67 20 74 68 65 | 20 6f 62 76 69 6f 75 73 |ting the| obvious|
|000001c0| 20 6c 6f 67 69 63 61 6c | 20 6f 70 65 72 61 74 6f | logical| operato|
|000001d0| 72 73 2c 0d 0a 25 20 20 | 20 20 5c 28 20 61 6e 64 |rs,..% | \( and|
|000001e0| 20 5c 29 20 61 73 20 70 | 61 72 65 6e 74 68 65 73 | \) as p|arenthes|
|000001f0| 65 73 2c 20 61 6e 64 20 | 5c 65 71 75 61 6c 20 74 |es, and |\equal t|
|00000200| 65 73 74 69 6e 67 20 65 | 71 75 61 6c 69 74 79 20 |esting e|quality |
|00000210| 6f 66 20 73 74 72 69 6e | 67 73 2e 0d 0a 25 20 20 |of strin|gs...% |
|00000220| 20 20 0d 0a 25 20 20 5c | 65 71 75 61 6c 7b 53 54 | ..% \|equal{ST|
|00000230| 52 49 4e 47 7d 7b 53 54 | 52 49 4e 47 7d 0d 0a 25 |RING}{ST|RING}..%|
|00000240| 20 20 20 20 20 54 65 73 | 74 73 20 69 66 20 74 68 | Tes|ts if th|
|00000250| 65 20 74 77 6f 20 61 72 | 67 75 6d 65 6e 74 73 20 |e two ar|guments |
|00000260| 61 72 65 20 65 71 75 61 | 6c 2c 20 61 66 74 65 72 |are equa|l, after|
|00000270| 20 61 6c 6c 20 6d 61 63 | 72 6f 73 20 61 72 65 20 | all mac|ros are |
|00000280| 65 78 70 61 6e 64 65 64 | 2e 0d 0a 25 20 20 20 20 |expanded|...% |
|00000290| 20 45 2e 67 2e 3a 20 5c | 64 65 66 5c 66 6f 6f 7b | E.g.: \|def\foo{|
|000002a0| 62 61 72 7d 20 20 2e 2e | 2e 20 63 61 75 73 65 73 |bar} ..|. causes|
|000002b0| 20 5c 65 71 75 61 6c 7b | 5c 66 6f 6f 7d 7b 62 61 | \equal{|\foo}{ba|
|000002c0| 72 7d 20 74 6f 20 65 76 | 61 6c 75 61 74 65 20 74 |r} to ev|aluate t|
|000002d0| 6f 20 60 74 72 75 65 27 | 0d 0a 25 0d 0a 25 20 5c |o `true'|..%..% \|
|000002e0| 77 68 69 6c 65 64 6f 7b | 54 45 53 54 7d 7b 44 4f |whiledo{|TEST}{DO|
|000002f0| 2d 43 4c 41 55 53 45 7d | 0d 0a 25 20 20 20 20 20 |-CLAUSE}|..% |
|00000300| 41 20 77 68 69 6c 65 2d | 64 6f 20 63 6f 6e 73 74 |A while-|do const|
|00000310| 72 75 63 74 69 6f 6e 2c | 20 77 69 74 68 20 54 45 |ruction,| with TE|
|00000320| 53 54 20 74 68 65 20 73 | 61 6d 65 20 61 73 20 61 |ST the s|ame as a|
|00000330| 62 6f 76 65 2e 0d 0a 25 | 0d 0a 25 20 5c 69 66 74 |bove...%|..% \ift|
|00000340| 68 65 6e 65 6c 73 65 7b | 54 45 53 54 7d 7b 54 48 |henelse{|TEST}{TH|
|00000350| 45 4e 2d 43 4c 41 55 53 | 45 7d 7b 45 4c 53 45 2d |EN-CLAUS|E}{ELSE-|
|00000360| 43 4c 41 55 53 45 7d 20 | 3d 3d 20 0d 0a 25 20 20 |CLAUSE} |== ..% |
|00000370| 20 42 45 47 49 4e 20 0d | 0a 25 20 20 20 20 5c 40 | BEGIN .|.% \@|
|00000380| 74 65 6d 70 62 6f 78 61 | 20 3a 3d 20 5c 76 62 6f |tempboxa| := \vbo|
|00000390| 78 7b 20 5c 70 72 6f 74 | 65 63 74 20 3a 3d 20 5c |x{ \prot|ect := \|
|000003a0| 6e 6f 65 78 70 61 6e 64 | 0d 0a 25 20 20 20 20 20 |noexpand|..% |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003c0| 20 20 20 20 5c 6f 72 20 | 20 3a 3d 20 5c 40 6f 72 | \or | := \@or|
|000003d0| 20 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..% | |
|000003e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 61 6e | | \an|
|000003f0| 64 20 3a 3d 20 5c 40 61 | 6e 64 20 0d 0a 25 20 20 |d := \@a|nd ..% |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000410| 20 20 20 20 20 20 20 5c | 6e 6f 74 20 3a 3d 20 5c | \|not := \|
|00000420| 40 6e 65 67 0d 0a 25 20 | 20 20 20 20 20 20 20 20 |@neg..% | |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000440| 5c 28 20 20 20 3a 3d 20 | 5c 40 6c 70 61 72 65 6e |\( := |\@lparen|
|00000450| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..% | |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 29 20 20 | | \) |
|00000470| 20 3a 3d 20 5c 40 72 70 | 61 72 65 6e 0d 0a 25 20 | := \@rp|aren..% |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000490| 20 20 20 20 20 20 20 20 | 5c 40 65 76 61 6c 20 5c | |\@eval \|
|000004a0| 69 66 6e 75 6d 20 0d 0a | 25 20 20 20 20 20 20 20 |ifnum ..|% |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004c0| 20 20 20 65 76 61 6c 28 | 54 45 53 54 29 20 20 20 | eval(|TEST) |
|000004d0| 20 20 20 20 25 25 25 20 | 20 5c 69 66 27 73 20 6e | %%% | \if's n|
|000004e0| 6f 74 20 65 78 70 61 6e | 64 65 64 0d 0a 25 20 20 |ot expan|ded..% |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000500| 20 20 20 20 20 20 20 20 | 40 74 65 72 6d 20 3a 3d | |@term :=|
|00000510| 20 54 20 20 5c 65 6c 73 | 65 20 40 74 65 72 6d 20 | T \els|e @term |
|00000520| 3a 3d 20 46 20 5c 66 69 | 0d 0a 25 20 20 20 20 20 |:= F \fi|..% |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000540| 20 20 20 20 20 5c 40 65 | 6e 64 65 76 61 6c 0d 0a | \@e|ndeval..|
|00000550| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |% | |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 40 67 74 65 6d | | @gtem|
|00000570| 70 61 20 3a 3d 47 20 40 | 76 61 6c 20 20 20 20 7d |pa :=G @|val }|
|00000580| 0d 0a 25 20 20 20 20 49 | 46 20 40 67 74 65 6d 70 |..% I|F @gtemp|
|00000590| 61 20 3d 20 54 20 20 54 | 48 45 4e 20 54 48 45 4e |a = T T|HEN THEN|
|000005a0| 2d 43 4c 41 55 53 45 20 | 0d 0a 25 20 20 20 20 20 |-CLAUSE |..% |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|000005c0| 4c 53 45 20 45 4c 53 45 | 2d 43 4c 41 55 53 45 20 |LSE ELSE|-CLAUSE |
|000005d0| 46 49 0d 0a 25 20 20 45 | 4e 44 0d 0a 25 0d 0a 25 |FI..% E|ND..%..%|
|000005e0| 20 5c 40 65 76 61 6c 20 | 3d 3d 20 42 45 47 49 4e | \@eval |== BEGIN|
|000005f0| 20 20 40 76 61 6c 20 20 | 20 20 3a 3d 20 46 0d 0a | @val | := F..|
|00000600| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |% | |
|00000610| 20 20 20 40 6f 72 6f 70 | 20 20 20 3a 3d 20 54 0d | @orop| := T.|
|00000620| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.% | |
|00000630| 20 20 20 20 40 6e 65 67 | 61 74 65 20 3a 3d 20 46 | @neg|ate := F|
|00000640| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |..% | EN|
|00000650| 44 0d 0a 25 0d 0a 25 20 | 5c 40 65 6e 64 65 76 61 |D..%..% |\@endeva|
|00000660| 6c 20 3d 3d 20 0d 0a 25 | 20 20 20 42 45 47 49 4e |l == ..%| BEGIN|
|00000670| 20 20 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 49 | ..% | I|
|00000680| 46 20 5c 40 6e 65 67 61 | 74 65 20 3d 54 20 54 48 |F \@nega|te =T TH|
|00000690| 45 4e 20 5c 40 6e 65 67 | 61 74 65 20 3a 3d 20 46 |EN \@neg|ate := F|
|000006a0| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..% | |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006c0| 20 49 46 20 5c 40 74 65 | 72 6d 20 3d 20 54 20 54 | IF \@te|rm = T T|
|000006d0| 48 45 4e 20 5c 40 74 65 | 72 6d 20 3a 3d 20 46 0d |HEN \@te|rm := F.|
|000006e0| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.% | |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4c | | EL|
|00000710| 53 45 20 5c 40 74 65 72 | 6d 20 3a 3d 20 54 20 20 |SE \@ter|m := T |
|00000720| 20 20 20 0d 0a 25 20 20 | 20 20 20 20 20 20 20 20 | ..% | |
|00000730| 46 49 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |FI | |
|00000740| 20 20 20 20 46 49 0d 0a | 25 20 20 20 20 20 20 20 | FI..|% |
|00000750| 20 20 20 49 46 20 5c 40 | 6f 72 6f 70 20 3d 20 54 | IF \@|orop = T|
|00000760| 20 54 48 45 4e 20 49 46 | 20 5c 40 76 61 6c 20 3d | THEN IF| \@val =|
|00000770| 20 46 20 0d 0a 25 20 20 | 20 20 20 20 20 20 20 20 | F ..% | |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000790| 20 20 20 20 20 54 48 45 | 4e 20 5c 40 76 61 6c 20 | THE|N \@val |
|000007a0| 3a 3d 20 5c 40 74 65 72 | 6d 20 46 49 0d 0a 25 20 |:= \@ter|m FI..% |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007c0| 20 20 20 20 20 20 20 45 | 4c 53 45 20 49 46 20 5c | E|LSE IF \|
|000007d0| 40 76 61 6c 20 3d 20 54 | 20 54 48 45 4e 20 20 5c |@val = T| THEN \|
|000007e0| 40 76 61 6c 20 3a 3d 20 | 5c 40 74 65 72 6d 20 46 |@val := |\@term F|
|000007f0| 49 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 46 49 |I..% | FI|
|00000800| 0d 0a 25 0d 0a 25 20 5c | 40 6f 72 20 3d 3d 20 0d |..%..% \|@or == .|
|00000810| 0a 25 20 20 20 42 45 47 | 49 4e 20 20 40 74 65 72 |.% BEG|IN @ter|
|00000820| 6d 20 3a 3d 20 54 20 20 | 5c 65 6c 73 65 20 40 74 |m := T |\else @t|
|00000830| 65 72 6d 20 3a 3d 20 46 | 20 5c 66 69 0d 0a 25 20 |erm := F| \fi..% |
|00000840| 20 20 20 20 20 20 20 20 | 20 5c 40 65 6e 64 65 76 | | \@endev|
|00000850| 61 6c 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 5c |al..% | \|
|00000860| 40 6f 72 6f 70 20 3a 3d | 20 54 0d 0a 25 20 20 20 |@orop :=| T..% |
|00000870| 20 20 20 20 20 20 20 5c | 69 66 6e 75 6d 0d 0a 25 | \|ifnum..%|
|00000880| 20 20 20 45 4e 44 0d 0a | 25 0d 0a 25 20 5c 40 61 | END..|%..% \@a|
|00000890| 6e 64 20 20 3d 3d 20 0d | 0a 25 20 20 20 42 45 47 |nd == .|.% BEG|
|000008a0| 49 4e 20 20 5c 72 65 6c | 61 78 20 5c 40 74 65 72 |IN \rel|ax \@ter|
|000008b0| 6d 20 3a 3d 20 54 20 20 | 5c 65 6c 73 65 20 5c 40 |m := T |\else \@|
|000008c0| 74 65 72 6d 20 3a 3d 20 | 46 20 5c 66 69 0d 0a 25 |term := |F \fi..%|
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 5c 40 65 6e 64 65 | | \@ende|
|000008e0| 76 61 6c 0d 0a 25 20 20 | 20 20 20 20 20 20 20 20 |val..% | |
|000008f0| 5c 40 6f 72 6f 70 20 3a | 3d 20 46 0d 0a 25 20 20 |\@orop :|= F..% |
|00000900| 20 20 20 20 20 20 20 20 | 5c 69 66 6e 75 6d 0d 0a | |\ifnum..|
|00000910| 25 20 20 20 45 4e 44 0d | 0a 25 0d 0a 25 20 5c 40 |% END.|.%..% \@|
|00000920| 6e 65 67 20 3d 3d 20 20 | 42 45 47 49 4e 20 31 3d |neg == |BEGIN 1=|
|00000930| 31 20 5c 66 69 20 0d 0a | 25 20 20 20 20 20 20 20 |1 \fi ..|% |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 5c 40 6e 65 67 61 | | \@nega|
|00000950| 74 65 20 3a 3d 20 54 0d | 0a 25 20 20 20 20 20 20 |te := T.|.% |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 5c 69 66 6e 75 | | \ifnu|
|00000970| 6d 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 45 |m..% | E|
|00000980| 4e 44 0d 0a 25 0d 0a 25 | 20 5c 40 6c 70 61 72 65 |ND..%..%| \@lpare|
|00000990| 6e 20 3d 3d 20 42 45 47 | 49 4e 20 31 3d 31 20 5c |n == BEG|IN 1=1 \|
|000009a0| 66 69 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |fi..% | |
|000009b0| 20 20 20 20 20 20 20 20 | 5c 62 65 67 69 6e 67 72 | |\begingr|
|000009c0| 6f 75 70 0d 0a 25 20 20 | 20 20 20 20 20 20 20 20 |oup..% | |
|000009d0| 20 20 20 20 20 20 20 20 | 20 5c 40 65 76 61 6c 20 | | \@eval |
|000009e0| 5c 69 66 6e 75 6d 0d 0a | 25 20 20 20 20 20 20 20 |\ifnum..|% |
|000009f0| 20 20 20 20 20 20 45 4e | 44 0d 0a 25 0d 0a 25 20 | EN|D..%..% |
|00000a00| 5c 40 72 70 61 72 65 6e | 20 3d 3d 20 0d 0a 25 20 |\@rparen| == ..% |
|00000a10| 20 20 42 45 47 49 4e 20 | 20 5c 72 65 6c 61 78 20 | BEGIN | \relax |
|00000a20| 5c 40 74 65 72 6d 20 3a | 3d 20 54 20 20 5c 65 6c |\@term :|= T \el|
|00000a30| 73 65 20 5c 40 74 65 72 | 6d 20 3a 3d 20 46 20 5c |se \@ter|m := F \|
|00000a40| 66 69 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 5c |fi..% | \|
|00000a50| 40 65 6e 64 65 76 61 6c | 0d 0a 25 20 20 20 20 20 |@endeval|..% |
|00000a60| 20 20 20 20 20 49 46 20 | 5c 40 76 61 6c 20 3d 20 | IF |\@val = |
|00000a70| 54 20 54 48 45 4e 20 5c | 40 67 74 65 6d 70 62 20 |T THEN \|@gtempb |
|00000a80| 3a 3d 47 20 31 3d 31 0d | 0a 25 20 20 20 20 20 20 |:=G 1=1.|.% |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000aa0| 20 45 4c 53 45 20 5c 40 | 67 74 65 6d 70 62 20 3a | ELSE \@|gtempb :|
|00000ab0| 3d 47 20 31 3d 30 20 20 | 20 46 49 0d 0a 25 20 20 |=G 1=0 | FI..% |
|00000ac0| 20 20 20 20 20 20 20 20 | 5c 65 6e 64 67 72 6f 75 | |\endgrou|
|00000ad0| 70 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 5c 69 |p..% | \i|
|00000ae0| 66 6e 75 6d 0d 0a 25 20 | 20 20 20 20 20 20 20 20 |fnum..% | |
|00000af0| 20 5c 40 67 74 65 6d 70 | 62 0d 0a 25 0d 0a 25 20 | \@gtemp|b..%..% |
|00000b00| 5c 65 71 75 61 6c 7b 53 | 54 52 31 7d 7b 53 54 52 |\equal{S|TR1}{STR|
|00000b10| 32 7d 20 3d 3d 0d 0a 25 | 20 20 20 42 45 47 49 4e |2} ==..%| BEGIN|
|00000b20| 20 20 31 3d 31 20 5c 66 | 69 0d 0a 25 20 20 20 20 | 1=1 \f|i..% |
|00000b30| 20 20 20 20 20 20 5c 40 | 74 65 6d 70 61 20 3a 3d | \@|tempa :=|
|00000b40| 20 65 76 61 6c 28 53 54 | 52 31 29 0d 0a 25 20 20 | eval(ST|R1)..% |
|00000b50| 20 20 20 20 20 20 20 20 | 5c 40 74 65 6d 70 65 20 | |\@tempe |
|00000b60| 3a 3d 20 65 76 61 6c 28 | 53 54 52 32 29 0d 0a 25 |:= eval(|STR2)..%|
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 49 46 20 5c 40 74 | | IF \@t|
|00000b80| 65 6d 70 61 20 3d 3d 20 | 5c 40 74 65 6d 70 65 20 |empa == |\@tempe |
|00000b90| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 54 |..% | T|
|00000ba0| 48 45 4e 20 5c 40 74 65 | 6d 70 61 20 3a 3d 20 31 |HEN \@te|mpa := 1|
|00000bb0| 3d 31 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |=1..% | |
|00000bc0| 20 45 4c 53 45 20 5c 40 | 74 65 6d 70 61 20 3a 3d | ELSE \@|tempa :=|
|00000bd0| 20 31 3d 30 20 46 49 0d | 0a 25 20 20 20 20 20 20 | 1=0 FI.|.% |
|00000be0| 20 20 20 20 5c 69 66 6e | 75 6d 20 5c 40 74 65 6d | \ifn|um \@tem|
|00000bf0| 70 61 0d 0a 25 20 20 45 | 4e 44 0d 0a 25 0d 0a 25 |pa..% E|ND..%..%|
|00000c00| 20 20 5c 77 68 69 6c 65 | 64 6f 7b 54 45 53 54 7d | \while|do{TEST}|
|00000c10| 7b 44 4f 2d 43 4c 41 55 | 53 45 7d 20 3d 3d 0d 0a |{DO-CLAU|SE} ==..|
|00000c20| 25 20 20 20 20 5c 69 66 | 74 68 65 6e 65 6c 73 65 |% \if|thenelse|
|00000c30| 7b 54 45 53 54 7d 7b 40 | 77 68 69 6c 65 64 6f 20 |{TEST}{@|whiledo |
|00000c40| 3a 3d 20 74 72 75 65 0d | 0a 25 20 20 20 20 20 20 |:= true.|.% |
|00000c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c60| 57 48 49 4c 45 20 40 77 | 68 69 6c 65 64 6f 0d 0a |WHILE @w|hiledo..|
|00000c70| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |% | |
|00000c80| 20 20 20 20 20 20 20 20 | 20 44 4f 20 20 44 4f 2d | | DO DO-|
|00000c90| 43 4c 41 55 53 45 0d 0a | 25 20 20 20 20 20 20 20 |CLAUSE..|% |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cb0| 20 20 20 20 20 5c 69 66 | 74 68 65 6e 65 6c 73 65 | \if|thenelse|
|00000cc0| 7b 54 45 53 54 7d 7b 40 | 77 68 69 6c 65 64 6f 20 |{TEST}{@|whiledo |
|00000cd0| 3a 3d 20 74 72 75 65 7d | 0d 0a 25 20 20 20 20 20 |:= true}|..% |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d00| 20 20 20 20 20 20 20 20 | 7b 40 77 68 69 6c 65 64 | |{@whiled|
|00000d10| 6f 20 3a 3d 20 66 61 6c | 73 65 7d 0d 0a 25 20 20 |o := fal|se}..% |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d30| 20 20 20 20 20 20 4f 44 | 7d 0d 0a 25 20 20 20 20 | OD|}..% |
|00000d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d50| 20 20 7b 7d 0d 0a 0d 0a | 5c 6c 6f 6e 67 5c 64 65 | {}....|\long\de|
|00000d60| 66 5c 69 66 74 68 65 6e | 65 6c 73 65 23 31 23 32 |f\ifthen|else#1#2|
|00000d70| 23 33 7b 5c 73 65 74 62 | 6f 78 5c 40 74 65 6d 70 |#3{\setb|ox\@temp|
|00000d80| 62 6f 78 61 0d 0a 20 20 | 5c 76 62 6f 78 7b 5c 6c |boxa.. |\vbox{\l|
|00000d90| 65 74 5c 70 72 6f 74 65 | 63 74 5c 6e 6f 65 78 70 |et\prote|ct\noexp|
|00000da0| 61 6e 64 0d 0a 20 20 20 | 20 20 20 20 20 5c 6c 65 |and.. | \le|
|00000db0| 74 5c 6f 72 5c 40 6f 72 | 20 5c 6c 65 74 5c 61 6e |t\or\@or| \let\an|
|00000dc0| 64 5c 40 61 6e 64 20 5c | 6c 65 74 5c 6e 6f 74 5c |d\@and \|let\not\|
|00000dd0| 40 6e 65 67 20 5c 6c 65 | 74 5c 28 5c 40 6c 70 61 |@neg \le|t\(\@lpa|
|00000de0| 72 65 6e 20 5c 6c 65 74 | 5c 29 5c 40 72 70 61 72 |ren \let|\)\@rpar|
|00000df0| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 7b 5c 6c 65 |en.. | {\le|
|00000e00| 74 5c 69 66 5c 72 65 6c | 61 78 5c 6c 65 74 5c 69 |t\if\rel|ax\let\i|
|00000e10| 66 78 5c 72 65 6c 61 78 | 5c 6c 65 74 5c 69 66 6e |fx\relax|\let\ifn|
|00000e20| 75 6d 5c 72 65 6c 61 78 | 5c 6c 65 74 5c 66 69 5c |um\relax|\let\fi\|
|00000e30| 72 65 6c 61 78 0d 0a 20 | 20 20 20 20 20 20 20 5c |relax.. | \|
|00000e40| 6c 65 74 5c 65 6c 73 65 | 5c 72 65 6c 61 78 20 5c |let\else|\relax \|
|00000e50| 78 64 65 66 5c 40 67 74 | 65 6d 70 61 7b 23 31 7d |xdef\@gt|empa{#1}|
|00000e60| 7d 5c 65 78 70 61 6e 64 | 61 66 74 65 72 0d 0a 20 |}\expand|after.. |
|00000e70| 20 20 20 20 20 20 20 5c | 40 65 76 61 6c 20 5c 69 | \|@eval \i|
|00000e80| 66 6e 75 6d 20 5c 40 67 | 74 65 6d 70 61 5c 72 65 |fnum \@g|tempa\re|
|00000e90| 6c 61 78 20 5c 64 65 66 | 5c 40 74 65 72 6d 7b 54 |lax \def|\@term{T|
|00000ea0| 7d 5c 65 6c 73 65 20 5c | 64 65 66 5c 40 74 65 72 |}\else \|def\@ter|
|00000eb0| 6d 7b 46 7d 5c 66 69 0d | 0a 20 20 20 20 20 20 20 |m{F}\fi.|. |
|00000ec0| 20 20 20 20 20 5c 40 65 | 6e 64 65 76 61 6c 5c 67 | \@e|ndeval\g|
|00000ed0| 6c 6f 62 61 6c 5c 6c 65 | 74 5c 40 67 74 65 6d 70 |lobal\le|t\@gtemp|
|00000ee0| 61 5c 40 76 61 6c 7d 5c | 69 66 5c 40 67 74 65 6d |a\@val}\|if\@gtem|
|00000ef0| 70 61 20 54 23 32 5c 65 | 6c 73 65 23 33 5c 66 69 |pa T#2\e|lse#3\fi|
|00000f00| 7d 0d 0a 0d 0a 5c 64 65 | 66 5c 40 65 76 61 6c 7b |}....\de|f\@eval{|
|00000f10| 5c 64 65 66 5c 40 76 61 | 6c 7b 46 7d 5c 64 65 66 |\def\@va|l{F}\def|
|00000f20| 5c 40 6f 72 6f 70 7b 54 | 7d 5c 64 65 66 5c 40 6e |\@orop{T|}\def\@n|
|00000f30| 65 67 61 74 65 7b 46 7d | 7d 0d 0a 0d 0a 5c 64 65 |egate{F}|}....\de|
|00000f40| 66 5c 40 65 6e 64 65 76 | 61 6c 7b 5c 69 66 5c 40 |f\@endev|al{\if\@|
|00000f50| 6e 65 67 61 74 65 20 54 | 5c 64 65 66 5c 40 6e 65 |negate T|\def\@ne|
|00000f60| 67 61 74 65 7b 46 7d 5c | 69 66 5c 40 74 65 72 6d |gate{F}\|if\@term|
|00000f70| 20 54 5c 64 65 66 5c 40 | 74 65 72 6d 7b 46 7d 5c | T\def\@|term{F}\|
|00000f80| 65 6c 73 65 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |else .. | |
|00000f90| 20 20 20 20 20 20 5c 64 | 65 66 5c 40 74 65 72 6d | \d|ef\@term|
|00000fa0| 7b 54 7d 5c 66 69 5c 66 | 69 0d 0a 20 20 20 20 20 |{T}\fi\f|i.. |
|00000fb0| 20 20 5c 69 66 5c 40 6f | 72 6f 70 20 54 5c 69 66 | \if\@o|rop T\if|
|00000fc0| 5c 40 76 61 6c 20 46 5c | 6c 65 74 5c 40 76 61 6c |\@val F\|let\@val|
|00000fd0| 5c 40 74 65 72 6d 5c 66 | 69 0d 0a 20 20 20 20 20 |\@term\f|i.. |
|00000fe0| 20 20 20 20 20 20 20 20 | 5c 65 6c 73 65 20 5c 69 | |\else \i|
|00000ff0| 66 5c 40 76 61 6c 20 54 | 5c 6c 65 74 5c 40 76 61 |f\@val T|\let\@va|
|00001000| 6c 5c 40 74 65 72 6d 5c | 66 69 5c 66 69 7d 0d 0a |l\@term\|fi\fi}..|
|00001010| 0d 0a 5c 64 65 66 5c 40 | 6f 72 7b 5c 72 65 6c 61 |..\def\@|or{\rela|
|00001020| 78 5c 64 65 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 |x\def\no|expand\@|
|00001030| 74 65 72 6d 7b 54 7d 5c | 65 6c 73 65 20 5c 64 65 |term{T}\|else \de|
|00001040| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 72 6d |f\noexpa|nd\@term|
|00001050| 7b 46 7d 5c 66 69 0d 0a | 20 20 20 20 20 20 20 20 |{F}\fi..| |
|00001060| 20 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 65 6e 64 65 | \noexpa|nd\@ende|
|00001070| 76 61 6c 20 5c 64 65 66 | 5c 6e 6f 65 78 70 61 6e |val \def|\noexpan|
|00001080| 64 5c 40 6f 72 6f 70 7b | 54 7d 5c 69 66 6e 75 6d |d\@orop{|T}\ifnum|
|00001090| 7d 0d 0a 0d 0a 5c 64 65 | 66 5c 40 61 6e 64 7b 5c |}....\de|f\@and{\|
|000010a0| 72 65 6c 61 78 5c 64 65 | 66 5c 6e 6f 65 78 70 61 |relax\de|f\noexpa|
|000010b0| 6e 64 5c 40 74 65 72 6d | 7b 54 7d 5c 65 6c 73 65 |nd\@term|{T}\else|
|000010c0| 20 5c 64 65 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 | \def\no|expand\@|
|000010d0| 74 65 72 6d 7b 46 7d 5c | 66 69 0d 0a 20 20 20 20 |term{F}\|fi.. |
|000010e0| 20 20 20 20 20 20 5c 6e | 6f 65 78 70 61 6e 64 5c | \n|oexpand\|
|000010f0| 40 65 6e 64 65 76 61 6c | 5c 64 65 66 5c 6e 6f 65 |@endeval|\def\noe|
|00001100| 78 70 61 6e 64 5c 40 6f | 72 6f 70 7b 46 7d 5c 69 |xpand\@o|rop{F}\i|
|00001110| 66 6e 75 6d 7d 0d 0a 0d | 0a 5c 64 65 66 5c 40 6e |fnum}...|.\def\@n|
|00001120| 65 67 7b 31 3d 31 20 5c | 66 69 20 5c 64 65 66 5c |eg{1=1 \|fi \def\|
|00001130| 6e 6f 65 78 70 61 6e 64 | 5c 40 6e 65 67 61 74 65 |noexpand|\@negate|
|00001140| 7b 54 7d 5c 69 66 6e 75 | 6d 7d 0d 0a 0d 0a 5c 64 |{T}\ifnu|m}....\d|
|00001150| 65 66 5c 40 6c 70 61 72 | 65 6e 7b 31 3d 31 20 5c |ef\@lpar|en{1=1 \|
|00001160| 66 69 20 5c 62 65 67 69 | 6e 67 72 6f 75 70 20 5c |fi \begi|ngroup \|
|00001170| 6e 6f 65 78 70 61 6e 64 | 5c 40 65 76 61 6c 20 5c |noexpand|\@eval \|
|00001180| 69 66 6e 75 6d 7d 0d 0a | 0d 0a 5c 64 65 66 5c 40 |ifnum}..|..\def\@|
|00001190| 72 70 61 72 65 6e 7b 5c | 72 65 6c 61 78 5c 64 65 |rparen{\|relax\de|
|000011a0| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 72 6d |f\noexpa|nd\@term|
|000011b0| 7b 54 7d 5c 65 6c 73 65 | 20 5c 64 65 66 5c 6e 6f |{T}\else| \def\no|
|000011c0| 65 78 70 61 6e 64 5c 40 | 74 65 72 6d 7b 46 7d 5c |expand\@|term{F}\|
|000011d0| 66 69 20 0d 0a 20 20 20 | 20 20 20 5c 6e 6f 65 78 |fi .. | \noex|
|000011e0| 70 61 6e 64 5c 40 65 6e | 64 65 76 61 6c 20 5c 69 |pand\@en|deval \i|
|000011f0| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 76 61 6c 20 |f\noexpa|nd\@val |
|00001200| 54 5c 67 64 65 66 5c 6e | 6f 65 78 70 61 6e 64 5c |T\gdef\n|oexpand\|
|00001210| 40 67 74 65 6d 70 62 7b | 31 3d 31 7d 5c 65 6c 73 |@gtempb{|1=1}\els|
|00001220| 65 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |e .. | |
|00001230| 5c 67 64 65 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 |\gdef\no|expand\@|
|00001240| 67 74 65 6d 70 62 7b 31 | 3d 30 7d 5c 66 69 0d 0a |gtempb{1|=0}\fi..|
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 65 6e 64 | | \end|
|00001260| 67 72 6f 75 70 20 5c 69 | 66 6e 75 6d 5c 6e 6f 65 |group \i|fnum\noe|
|00001270| 78 70 61 6e 64 5c 40 67 | 74 65 6d 70 62 7d 0d 0a |xpand\@g|tempb}..|
|00001280| 0d 0a 5c 64 65 66 5c 65 | 71 75 61 6c 23 31 23 32 |..\def\e|qual#1#2|
|00001290| 7b 31 3d 31 20 5c 66 69 | 20 5c 65 64 65 66 5c 6e |{1=1 \fi| \edef\n|
|000012a0| 6f 65 78 70 61 6e 64 5c | 40 74 65 6d 70 61 7b 23 |oexpand\|@tempa{#|
|000012b0| 31 7d 5c 65 64 65 66 5c | 6e 6f 65 78 70 61 6e 64 |1}\edef\|noexpand|
|000012c0| 5c 40 74 65 6d 70 65 7b | 23 32 7d 5c 69 66 78 0d |\@tempe{|#2}\ifx.|
|000012d0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000012e0| 20 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 6d 70 | \noexpa|nd\@temp|
|000012f0| 61 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 6d 70 |a\noexpa|nd\@temp|
|00001300| 65 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |e .. | |
|00001310| 20 20 20 20 5c 64 65 66 | 5c 6e 6f 65 78 70 61 6e | \def|\noexpan|
|00001320| 64 5c 40 74 65 6d 70 61 | 7b 31 3d 31 7d 5c 65 6c |d\@tempa|{1=1}\el|
|00001330| 73 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |se.. | |
|00001340| 20 20 20 20 5c 64 65 66 | 5c 6e 6f 65 78 70 61 6e | \def|\noexpan|
|00001350| 64 5c 40 74 65 6d 70 61 | 7b 31 3d 30 7d 5c 66 69 |d\@tempa|{1=0}\fi|
|00001360| 20 5c 69 66 6e 75 6d 20 | 5c 6e 6f 65 78 70 61 6e | \ifnum |\noexpan|
|00001370| 64 5c 40 74 65 6d 70 61 | 7d 0d 0a 0d 0a 5c 6c 6f |d\@tempa|}....\lo|
|00001380| 6e 67 5c 64 65 66 5c 77 | 68 69 6c 65 64 6f 23 31 |ng\def\w|hiledo#1|
|00001390| 23 32 7b 5c 69 66 74 68 | 65 6e 65 6c 73 65 7b 23 |#2{\ifth|enelse{#|
|000013a0| 31 7d 7b 5c 40 77 68 69 | 6c 65 64 6f 74 72 75 65 |1}{\@whi|ledotrue|
|000013b0| 20 5c 40 77 68 69 6c 65 | 73 77 5c 69 66 40 77 68 | \@while|sw\if@wh|
|000013c0| 69 6c 65 64 6f 0d 0a 20 | 20 20 20 20 20 20 20 20 |iledo.. | |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 5c 66 69 7b 23 | | \fi{#|
|000013e0| 32 5c 69 66 74 68 65 6e | 65 6c 73 65 7b 23 31 7d |2\ifthen|else{#1}|
|000013f0| 7b 5c 40 77 68 69 6c 65 | 64 6f 74 72 75 65 7d 7b |{\@while|dotrue}{|
|00001400| 5c 40 77 68 69 6c 65 64 | 6f 66 61 6c 73 65 7d 7d |\@whiled|ofalse}}|
|00001410| 7d 7b 7d 7d 0d 0a 0d 0a | 5c 6e 65 77 69 66 5c 69 |}{}}....|\newif\i|
|00001420| 66 40 77 68 69 6c 65 64 | 6f 0d 0a 0d 0a |f@whiled|o.... |
+--------+-------------------------+-------------------------+--------+--------+